unit SceneEngine;

interface

uses SceneManager, SceneMainMenu, SceneAbout, SceneGame;

var
  // Scene Man
  SceneMan: TSceneManager;
  // Scenes
  SceneMenu: TSceneMainMenu;
  SceneAbout: TSceneAbout;
  SceneGame: TSceneGame;

procedure Init;
procedure Free;

implementation

procedure Init;
begin
  // Scene Man
  SceneMan := TSceneManager.Create;
  // Scenes
  SceneMenu := TSceneMainMenu.Create;
  SceneAbout := TSceneAbout.Create;
  SceneGame := TSceneGame.Create;
  // Start scene
  SceneMan.Scene := SceneMenu;
end;

procedure Free;
begin
  // Scene Man
  SceneMan.Free;
  // Scenes
  SceneMenu.Free;
  SceneAbout.Free;
  SceneGame.Free;
end;

end.
